home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0769A.ZIP
/
ISMEMO.DOC
< prev
next >
Wrap
Text File
|
1987-08-29
|
2KB
|
58 lines
________________ DOC for ISMEMO.BIN (OBJ) v. 0.1 Beta 8/29/87 ______________
ISMEMO.BIN -- sense the presence of a memo field within a record of a
dBASE III Plus file. This is just for a couple of people on CIS who asked
for it.
YAUSU! Yet Another Useless Synergy Util! This one was just written so I could
test what the problems might be doing file I/O within BIN routines written in
C. At the same time, I tought myself to *do* C file I/O. Actually, I ended
up using inline assembly for the file i/o (and Turbo C for the controlling
code, etc.).
We'll call this another Beta version, and if anyone needs more I'll think about
it [grin].
CALLING SYNTAX for ISMEMO.BIN v. 0.1 BETA
_________________________________________
To find out if there is a memo attached to the current record of your database:
m_param = DBF()+"/"+STR(RECNO()) && no spaces after filename!!
LOAD Ismemo && unless linking in OBJ code
CALL Ismemo WITH m_param && or CCALL for QS if linked in
Return values:
All return values are placed in the first byte of the passed parameter.
They are:
SYNTAX ERROR '?' (maybe you put a space after the filename?)
NO MEMO FILE '!' (or at least the byte's not set in the header)
BAD OPEN '$' (can't open the DBF file)
READ ERROR '@'
RANGE ERROR '%' (record out of range)
DELETED RECORD '*' (not yet implemented [grin])
NO POINTER FOUND '0' (no memo attached)
POINTER FOUND '1' (there is a memo attached)
Limitations:
____________
This version only works for the first memo field found, also will not work
correctly with record number over 65535 or so.
Monetary reimbursement dept:
____________________________
This is a part of a package which is under development called the Synergy
Utilities. $75 sent to the address below gets 'em all, plus membership on
my BBS for download of source and updates. Please don't send something just
for ISMEMO, as it will just confuse me [grin]. Oh, if you want a disk mailed,
end $5 extra.
R. Russell Freeland
Synergy Corp.
1780 SW 43 Ave.
Ft. Lauderdale, FL 33317
CIS:76146,371